home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd3 / internet.dxr / 00018_Button Scripts.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  299 b   |  19 lines
  1. on ButtonDown C, n
  2.   global channel
  3.   set channel to C
  4.   if n then
  5.     puppetSound("click")
  6.   end if
  7.   set the blend of sprite channel to 100
  8.   updateStage()
  9. end
  10.  
  11. on ButtonUp n
  12.   global channel
  13.   if n then
  14.     puppetSound("click")
  15.   end if
  16.   set the blend of sprite channel to 0
  17.   updateStage()
  18. end
  19.